<%sub Style_Style
if Request.QueryString("Skinurl")<>"" then
call saveStyleStyle
end if
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<table border="0" width="800" cellpadding="2">
<form method="POST" action="">
<%SET Fso = CreateObject("Scripting.FileSystemObject")
Set X = Fso.GetFolder(Server.MapPath("../style"))
For Each F in X.Subfolders
%>
<tr>
<td style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px" 
width="30"><img src="../style/<%=F.Name%>/YL.png"/></td>
<td style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px; border-bottom-style: dotted; border-bottom-width: 1px" 
valign="bottom">
<p align="left"><a href="?Fmenu=Style_Style&Skinurl=<%=F.Name%>">使用此皮肤</a> 编辑模板</td>
</tr>
<%Next
set Fso=nothing
Set X =nothing%>
</form></table>
<%end sub%>